約 3,466,675 件
https://w.atwiki.jp/ce00582/pages/1197.html
Private Sub Command1_Click() Dim n As Single Dim a(1 To 100000) As String Dim x1(1 To 3000) As String Dim x2(1 To 3000) As String Dim x3(1 To 3000) As String Dim x4(1 To 3000) As String Dim x5(1 To 3000) As String Dim x6(1 To 3000) As String Dim dname(1 To 10000) As Single Dim dstart(1 To 10000) As Single Dim dend(1 To 10000) As Single Dim data(1 To 100000) As String Dim kk() As String Dim buf As String Dim p As Single Dim endnum As Single Dim endn As Single Dim nx As Single n = 1 Open "c \psid\spss81.txt" For Input As #1 Do Until EOF(1) Line Input #1, buf a(n) = buf n = n + 1 Loop Close #1 endnum = n - 1 m = 1 For n = 1 To endnum x1(m) = Mid(a(n), 7, 6) x2(m) = Mid(a(n), 20, 11) x3(m) = Mid(a(n), 37, 6) x4(m) = Mid(a(n), 50, 11) x5(m) = Mid(a(n), 67, 6) x6(m) = Mid(a(n), 80, 11) m = m + 1 Next num = m - 1 n = 0 For m = 1 To num - 1 n = n + 1 p = InStr(x1(m), "V") dname(n) = Val(Mid(x1(m), p + 1, 5)) kk = Split(x2(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) n = n + 1 p = InStr(x3(m), "V") dname(n) = Val(Mid(x3(m), p + 1, 5)) kk = Split(x4(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) n = n + 1 p = InStr(x5(m), "V") dname(n) = Val(Mid(x5(m), p + 1, 5)) kk = Split(x6(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) Next n = n + 1 p = InStr(x1(m), "V") dname(n) = Val(Mid(x1(m), p + 1, 5)) kk = Split(x2(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) n = n + 1 p = InStr(x3(m), "V") dname(n) = Val(Mid(x3(m), p + 1, 5)) kk = Split(x4(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) Open "c /psid/code81.txt" For Output As #2 For m = 1 To 611 Write #2, m, dname(m), dstart(m), dend(m) Next Close #2 End Sub
https://w.atwiki.jp/ce00582/pages/1181.html
Private Sub Command1_Click() Dim n As Single Dim a(1 To 100000) As String Dim x1(1 To 3000) As String Dim x2(1 To 3000) As String Dim x3(1 To 3000) As String Dim x4(1 To 3000) As String Dim x5(1 To 3000) As String Dim x6(1 To 3000) As String Dim dname(1 To 10000) As Single Dim dstart(1 To 10000) As Single Dim dend(1 To 10000) As Single Dim data(1 To 100000) As String Dim kk() As String Dim buf As String Dim p As Single Dim endnum As Single Dim endn As Single Dim nx As Single n = 1 Open "c \psid\spss87.txt" For Input As #1 Do Until EOF(1) Line Input #1, buf a(n) = buf n = n + 1 Loop Close #1 endnum = n - 1 m = 1 For n = 1 To endnum x1(m) = Mid(a(n), 7, 6) x2(m) = Mid(a(n), 20, 11) x3(m) = Mid(a(n), 37, 6) x4(m) = Mid(a(n), 50, 11) x5(m) = Mid(a(n), 67, 6) x6(m) = Mid(a(n), 80, 11) m = m + 1 Next num = m - 1 n = 0 For m = 1 To num - 1 n = n + 1 p = InStr(x1(m), "V") dname(n) = Val(Mid(x1(m), p + 2, 5)) kk = Split(x2(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) n = n + 1 p = InStr(x3(m), "V") dname(n) = Val(Mid(x3(m), p + 2, 5)) kk = Split(x4(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) n = n + 1 p = InStr(x5(m), "V") dname(n) = Val(Mid(x5(m), p + 2, 5)) kk = Split(x6(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) Next n = n + 1 p = InStr(x1(m), "V") dname(n) = Val(Mid(x1(m), p + 2, 5)) kk = Split(x2(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) n = n + 1 p = InStr(x3(m), "V") dname(n) = Val(Mid(x3(m), p + 2, 5)) kk = Split(x4(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) Open "c /psid/code87.txt" For Output As #2 For m = 1 To 1037 Write #2, m, dname(m), dstart(m), dend(m) Next Close #2 End Sub
https://w.atwiki.jp/ce00582/pages/1198.html
Private Sub Command1_Click() Dim n As Single Dim a(1 To 100000) As String Dim x1(1 To 3000) As String Dim x2(1 To 3000) As String Dim x3(1 To 3000) As String Dim x4(1 To 3000) As String Dim x5(1 To 3000) As String Dim x6(1 To 3000) As String Dim dname(1 To 10000) As Single Dim dstart(1 To 10000) As Single Dim dend(1 To 10000) As Single Dim data(1 To 100000) As String Dim kk() As String Dim buf As String Dim p As Single Dim endnum As Single Dim endn As Single Dim nx As Single n = 1 Open "c \psid\spss82.txt" For Input As #1 Do Until EOF(1) Line Input #1, buf a(n) = buf n = n + 1 Loop Close #1 endnum = n - 1 m = 1 For n = 1 To endnum x1(m) = Mid(a(n), 7, 6) x2(m) = Mid(a(n), 20, 11) x3(m) = Mid(a(n), 37, 6) x4(m) = Mid(a(n), 50, 11) x5(m) = Mid(a(n), 67, 6) x6(m) = Mid(a(n), 80, 11) m = m + 1 Next num = m - 1 n = 0 For m = 1 To num - 1 n = n + 1 p = InStr(x1(m), "V") dname(n) = Val(Mid(x1(m), p + 1, 5)) kk = Split(x2(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) n = n + 1 p = InStr(x3(m), "V") dname(n) = Val(Mid(x3(m), p + 1, 5)) kk = Split(x4(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) n = n + 1 p = InStr(x5(m), "V") dname(n) = Val(Mid(x5(m), p + 1, 5)) kk = Split(x6(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) Next n = n + 1 p = InStr(x1(m), "V") dname(n) = Val(Mid(x1(m), p + 1, 5)) kk = Split(x2(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) n = n + 1 p = InStr(x3(m), "V") dname(n) = Val(Mid(x3(m), p + 1, 5)) kk = Split(x4(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) Open "c /psid/code82.txt" For Output As #2 For m = 1 To 539 Write #2, m, dname(m), dstart(m), dend(m) Next Close #2 End Sub
https://w.atwiki.jp/ce00582/pages/1160.html
Private Sub Command1_Click() Dim n As Single Dim a(1 To 100000) As String Dim x1(1 To 3000) As String Dim x2(1 To 3000) As String Dim x3(1 To 3000) As String Dim x4(1 To 3000) As String Dim x5(1 To 3000) As String Dim x6(1 To 3000) As String Dim dname(1 To 10000) As Single Dim dstart(1 To 10000) As Single Dim dend(1 To 10000) As Single Dim data(1 To 10000) As String Dim kk() As String Dim buf As String Dim p As Single Dim endnum As Single Dim endn As Single Dim nx As Single n = 1 Open "c \psid\spss07.txt" For Input As #1 Do Until EOF(1) Line Input #1, buf a(n) = buf n = n + 1 Loop Close #1 endnum = n - 1 m = 1 For n = 1 To endnum x1(m) = Mid(a(n), 7, 7) x2(m) = Mid(a(n), 20, 11) x3(m) = Mid(a(n), 37, 7) x4(m) = Mid(a(n), 50, 11) x5(m) = Mid(a(n), 67, 7) x6(m) = Mid(a(n), 80, 11) m = m + 1 Next num = m - 1 n = 0 For m = 1 To num - 1 n = n + 1 p = InStr(x1(m), "ER") dname(n) = Val(Mid(x1(m), p + 2, 5)) kk = Split(x2(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) n = n + 1 p = InStr(x3(m), "ER") dname(n) = Val(Mid(x3(m), p + 2, 5)) kk = Split(x4(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) n = n + 1 p = InStr(x5(m), "ER") dname(n) = Val(Mid(x5(m), p + 2, 5)) kk = Split(x6(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) Next n = n + 1 p = InStr(x1(m), "ER") dname(n) = Val(Mid(x1(m), p + 2, 5)) kk = Split(x2(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) n = n + 1 p = InStr(x3(m), "ER") dname(n) = Val(Mid(x3(m), p + 2, 5)) kk = Split(x4(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) Open "c /psid/code07.txt" For Output As #2 For m = 1 To 5069 Write #2, m, dname(m), dstart(m), dend(m) Next Close #2 End Sub
https://w.atwiki.jp/ce00582/pages/1195.html
Private Sub Command1_Click() Dim n As Single Dim a(1 To 100000) As String Dim x1(1 To 3000) As String Dim x2(1 To 3000) As String Dim x3(1 To 3000) As String Dim x4(1 To 3000) As String Dim x5(1 To 3000) As String Dim x6(1 To 3000) As String Dim dname(1 To 10000) As Single Dim dstart(1 To 10000) As Single Dim dend(1 To 10000) As Single Dim data(1 To 100000) As String Dim kk() As String Dim buf As String Dim p As Single Dim endnum As Single Dim endn As Single Dim nx As Single n = 1 Open "c \psid\spss79.txt" For Input As #1 Do Until EOF(1) Line Input #1, buf a(n) = buf n = n + 1 Loop Close #1 endnum = n - 1 m = 1 For n = 1 To endnum x1(m) = Mid(a(n), 7, 6) x2(m) = Mid(a(n), 20, 11) x3(m) = Mid(a(n), 37, 6) x4(m) = Mid(a(n), 50, 11) x5(m) = Mid(a(n), 67, 6) x6(m) = Mid(a(n), 80, 11) m = m + 1 Next num = m - 1 n = 0 For m = 1 To num - 1 n = n + 1 p = InStr(x1(m), "V") dname(n) = Val(Mid(x1(m), p + 1, 5)) kk = Split(x2(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) n = n + 1 p = InStr(x3(m), "V") dname(n) = Val(Mid(x3(m), p + 1, 5)) kk = Split(x4(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) n = n + 1 p = InStr(x5(m), "V") dname(n) = Val(Mid(x5(m), p + 1, 5)) kk = Split(x6(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) Next n = n + 1 p = InStr(x1(m), "V") dname(n) = Val(Mid(x1(m), p + 1, 5)) kk = Split(x2(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) n = n + 1 p = InStr(x3(m), "V") dname(n) = Val(Mid(x3(m), p + 1, 5)) kk = Split(x4(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) Open "c /psid/code79.txt" For Output As #2 For m = 1 To 515 Write #2, m, dname(m), dstart(m), dend(m) Next Close #2 End Sub
https://w.atwiki.jp/ce00582/pages/1182.html
Private Sub Command1_Click() Dim n As Single Dim a(1 To 100000) As String Dim x1(1 To 3000) As String Dim x2(1 To 3000) As String Dim x3(1 To 3000) As String Dim x4(1 To 3000) As String Dim x5(1 To 3000) As String Dim x6(1 To 3000) As String Dim dname(1 To 10000) As Single Dim dstart(1 To 10000) As Single Dim dend(1 To 10000) As Single Dim data(1 To 100000) As String Dim kk() As String Dim buf As String Dim p As Single Dim endnum As Single Dim endn As Single Dim nx As Single n = 1 Open "c \psid\spss86.txt" For Input As #1 Do Until EOF(1) Line Input #1, buf a(n) = buf n = n + 1 Loop Close #1 endnum = n - 1 m = 1 For n = 1 To endnum x1(m) = Mid(a(n), 7, 6) x2(m) = Mid(a(n), 20, 11) x3(m) = Mid(a(n), 37, 6) x4(m) = Mid(a(n), 50, 11) x5(m) = Mid(a(n), 67, 6) x6(m) = Mid(a(n), 80, 11) m = m + 1 Next num = m - 1 n = 0 For m = 1 To num - 1 n = n + 1 p = InStr(x1(m), "V") dname(n) = Val(Mid(x1(m), p + 2, 5)) kk = Split(x2(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) n = n + 1 p = InStr(x3(m), "V") dname(n) = Val(Mid(x3(m), p + 2, 5)) kk = Split(x4(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) n = n + 1 p = InStr(x5(m), "V") dname(n) = Val(Mid(x5(m), p + 2, 5)) kk = Split(x6(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) Next n = n + 1 p = InStr(x1(m), "V") dname(n) = Val(Mid(x1(m), p + 2, 5)) kk = Split(x2(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) n = n + 1 p = InStr(x3(m), "V") dname(n) = Val(Mid(x3(m), p + 2, 5)) kk = Split(x4(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) Open "c /psid/code86.txt" For Output As #2 For m = 1 To 1187 Write #2, m, dname(m), dstart(m), dend(m) Next Close #2 End Sub
https://w.atwiki.jp/ce00582/pages/1175.html
Private Sub Command1_Click() Dim n As Single Dim a(1 To 100000) As String Dim x1(1 To 3000) As String Dim x2(1 To 3000) As String Dim x3(1 To 3000) As String Dim x4(1 To 3000) As String Dim x5(1 To 3000) As String Dim x6(1 To 3000) As String Dim dname(1 To 10000) As Single Dim dstart(1 To 10000) As Single Dim dend(1 To 10000) As Single Dim data(1 To 100000) As String Dim kk() As String Dim buf As String Dim p As Single Dim endnum As Single Dim endn As Single Dim nx As Single n = 1 Open "c \psid\spss93.txt" For Input As #1 Do Until EOF(1) Line Input #1, buf a(n) = buf n = n + 1 Loop Close #1 endnum = n - 1 m = 1 For n = 1 To endnum x1(m) = Mid(a(n), 7, 6) x2(m) = Mid(a(n), 20, 11) x3(m) = Mid(a(n), 37, 6) x4(m) = Mid(a(n), 50, 11) x5(m) = Mid(a(n), 67, 6) x6(m) = Mid(a(n), 80, 11) m = m + 1 Next num = m - 1 n = 0 For m = 1 To num - 1 n = n + 1 p = InStr(x1(m), "ER") dname(n) = Val(Mid(x1(m), p + 2, 5)) kk = Split(x2(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) n = n + 1 p = InStr(x3(m), "ER") dname(n) = Val(Mid(x3(m), p + 2, 5)) kk = Split(x4(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) n = n + 1 p = InStr(x5(m), "ER") dname(n) = Val(Mid(x5(m), p + 2, 5)) kk = Split(x6(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) Next n = n + 1 p = InStr(x1(m), "ER") dname(n) = Val(Mid(x1(m), p + 2, 5)) kk = Split(x2(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) n = n + 1 p = InStr(x3(m), "ER") dname(n) = Val(Mid(x3(m), p + 2, 5)) kk = Split(x4(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) Open "c /psid/code93.txt" For Output As #2 For m = 1 To 1763 Write #2, m, dname(m), dstart(m), dend(m) Next Close #2 End Sub
https://w.atwiki.jp/ce00582/pages/1194.html
Private Sub Command1_Click() Dim n As Single Dim a(1 To 100000) As String Dim x1(1 To 3000) As String Dim x2(1 To 3000) As String Dim x3(1 To 3000) As String Dim x4(1 To 3000) As String Dim x5(1 To 3000) As String Dim x6(1 To 3000) As String Dim dname(1 To 10000) As Single Dim dstart(1 To 10000) As Single Dim dend(1 To 10000) As Single Dim data(1 To 100000) As String Dim kk() As String Dim buf As String Dim p As Single Dim endnum As Single Dim endn As Single Dim nx As Single n = 1 Open "c \psid\spss78.txt" For Input As #1 Do Until EOF(1) Line Input #1, buf a(n) = buf n = n + 1 Loop Close #1 endnum = n - 1 m = 1 For n = 1 To endnum x1(m) = Mid(a(n), 7, 6) x2(m) = Mid(a(n), 20, 11) x3(m) = Mid(a(n), 37, 6) x4(m) = Mid(a(n), 50, 11) x5(m) = Mid(a(n), 67, 6) x6(m) = Mid(a(n), 80, 11) m = m + 1 Next num = m - 1 n = 0 For m = 1 To num - 1 n = n + 1 p = InStr(x1(m), "V") dname(n) = Val(Mid(x1(m), p + 1, 5)) kk = Split(x2(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) n = n + 1 p = InStr(x3(m), "V") dname(n) = Val(Mid(x3(m), p + 1, 5)) kk = Split(x4(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) n = n + 1 p = InStr(x5(m), "V") dname(n) = Val(Mid(x5(m), p + 1, 5)) kk = Split(x6(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) Next n = n + 1 p = InStr(x1(m), "V") dname(n) = Val(Mid(x1(m), p + 1, 5)) kk = Split(x2(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) n = n + 1 p = InStr(x3(m), "V") dname(n) = Val(Mid(x3(m), p + 1, 5)) kk = Split(x4(m), "-") dstart(n) = Val(kk(0)) dend(n) = Val(kk(1)) Open "c /psid/code78.txt" For Output As #2 For m = 1 To 521 Write #2, m, dname(m), dstart(m), dend(m) Next Close #2 End Sub
https://w.atwiki.jp/ce00582/pages/1882.html
Private Sub Command1_Click() Dim age As Single Dim car As Single Dim minx(14 To 75, 0 To 50) As Single Open "c /dig/data/女子被保険者.txt " For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44, a45, a46, a47, a48, a49, a50, a51, a52 age = a1 minx(age, 0) = a2 minx(age, 1) = a3 minx(age, 2) = a4 minx(age, 3) = a5 minx(age, 4) = a6 minx(age, 5) = a7 minx(age, 6) = a8 minx(age, 7) = a9 minx(age, 8) = a10 minx(age, 9) = a11 minx(age, 10) = a12 minx(age, 11) = a13 minx(age, 12) = a14 minx(age, 13) = a15 minx(age, 14) = a16 minx(age, 15) = a17 minx(age, 16) = a18 minx(age, 17) = a19 minx(age, 18) = a20 minx(age, 19) = a21 minx(age, 20) = a22 minx(age, 21) = a23 minx(age, 22) = a24 minx(age, 23) = a25 minx(age, 24) = a26 minx(age, 25) = a27 minx(age, 26) = a28 minx(age, 27) = a29 minx(age, 28) = a30 minx(age, 29) = a31 minx(age, 30) = a32 minx(age, 31) = a33 minx(age, 32) = a34 minx(age, 33) = a35 minx(age, 34) = a36 minx(age, 35) = a37 minx(age, 36) = a38 minx(age, 37) = a39 minx(age, 38) = a40 minx(age, 39) = a41 minx(age, 40) = a42 minx(age, 41) = a43 minx(age, 42) = a44 minx(age, 43) = a45 minx(age, 44) = a46 minx(age, 45) = a47 minx(age, 46) = a48 minx(age, 47) = a49 minx(age, 48) = a50 minx(age, 49) = a51 minx(age, 50) = a52 Loop Close #6 For age = 15 To 69 For car = 1 To 50 minx(age, car) = minx(age, car) / 10 ^ 4 Next Next Open "c /dig/gdata/女子被保険者.txt " For Output As #4 For age = 15 To 69 For car = 1 To 50 Write #4, age, car, minx(age, car) Next Next Close #4 End Sub
https://w.atwiki.jp/ce00582/pages/1881.html
Private Sub Command1_Click() Dim age As Single Dim car As Single Dim minx(14 To 75, 0 To 50) As Single Open "c /dig/data/男子被保険者.txt " For Input As #6 Do Until EOF(6) Input #6, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18, a19, a20, a21, a22, a23, a24, a25, a26, a27, a28, a29, a30, a31, a32, a33, a34, a35, a36, a37, a38, a39, a40, a41, a42, a43, a44, a45, a46, a47, a48, a49, a50, a51, a52 age = a1 minx(age, 0) = a2 minx(age, 1) = a3 minx(age, 2) = a4 minx(age, 3) = a5 minx(age, 4) = a6 minx(age, 5) = a7 minx(age, 6) = a8 minx(age, 7) = a9 minx(age, 8) = a10 minx(age, 9) = a11 minx(age, 10) = a12 minx(age, 11) = a13 minx(age, 12) = a14 minx(age, 13) = a15 minx(age, 14) = a16 minx(age, 15) = a17 minx(age, 16) = a18 minx(age, 17) = a19 minx(age, 18) = a20 minx(age, 19) = a21 minx(age, 20) = a22 minx(age, 21) = a23 minx(age, 22) = a24 minx(age, 23) = a25 minx(age, 24) = a26 minx(age, 25) = a27 minx(age, 26) = a28 minx(age, 27) = a29 minx(age, 28) = a30 minx(age, 29) = a31 minx(age, 30) = a32 minx(age, 31) = a33 minx(age, 32) = a34 minx(age, 33) = a35 minx(age, 34) = a36 minx(age, 35) = a37 minx(age, 36) = a38 minx(age, 37) = a39 minx(age, 38) = a40 minx(age, 39) = a41 minx(age, 40) = a42 minx(age, 41) = a43 minx(age, 42) = a44 minx(age, 43) = a45 minx(age, 44) = a46 minx(age, 45) = a47 minx(age, 46) = a48 minx(age, 47) = a49 minx(age, 48) = a50 minx(age, 49) = a51 minx(age, 50) = a52 Loop Close #6 For age = 15 To 69 For car = 1 To 50 minx(age, car) = minx(age, car) / 10 ^ 4 Next Next Open "c /dig/gdata/男子被保険者.txt " For Output As #4 For age = 15 To 69 For car = 1 To 50 Write #4, age, car, minx(age, car) Next Next Close #4 End Sub